/**
 * Copyright (C) 2009 SIP-Router.org
 *
 * This file is part of Kamailio, a free SIP server.
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

/*!
 * \file
 * \brief Kamailio core :: event handling
 * \ingroup core
 * Module: \ref core
 */

#include "dprint.h"
#include "mem/mem.h"
#include "route.h"
#include "fmsg.h"
#include "events.h"

static sr_event_cb_t _sr_events_list;
static int _sr_events_inited = 0;

typedef struct _sr_core_ert
{
	int init_parse_error;
} sr_core_ert_t;

static sr_core_ert_t _sr_core_ert_list;

/**
 *
 */
void sr_core_ert_init(void)
{
	memset(&_sr_core_ert_list, 0, sizeof(sr_core_ert_t));
	/* 0 - is not a valid index in event_route blocks list */
	_sr_core_ert_list.init_parse_error =
			route_get(&event_rt, "core:receive-parse-error");
	if(_sr_core_ert_list.init_parse_error <= 0
			|| event_rt.rlist[_sr_core_ert_list.init_parse_error] == NULL) {
		_sr_core_ert_list.init_parse_error = -1;
	} else {
		LM_DBG("event_route[core:receive-parse-error] is defined\n");
	}
}

/**
 *
 */
void sr_core_ert_run(sip_msg_t *msg, int e)
{
	struct run_act_ctx ctx;
	int rtb;

	switch(e) {
		case SR_CORE_ERT_RECEIVE_PARSE_ERROR:
			if(likely(_sr_core_ert_list.init_parse_error <= 0))
				return;
			rtb = get_route_type();
			set_route_type(REQUEST_ROUTE);
			init_run_actions_ctx(&ctx);
			run_top_route(event_rt.rlist[_sr_core_ert_list.init_parse_error],
					msg, &ctx);
			set_route_type(rtb);
			break;
	}
}

/**
 *
 */
int sr_core_ert_run_xname(char *evname)
{
	struct run_act_ctx ctx;
	int rtb;
	int ridx;
	sip_msg_t *fmsg;

	fmsg = faked_msg_get_next_clear();
	if(fmsg == NULL) {
		LM_ERR("cannot create a fake message\n");
		return -1;
	}
	ridx = route_lookup(&event_rt, evname);
	if(ridx <= 0 || event_rt.rlist[ridx] == NULL) {
		LM_DBG("event_route[%s] not defined - skipping\n", evname);
		return 0;
	}

	rtb = get_route_type();
	set_route_type(REQUEST_ROUTE);
	init_run_actions_ctx(&ctx);
	run_top_route(event_rt.rlist[ridx], fmsg, &ctx);
	set_route_type(rtb);

	return 0;
}

/**
 *
 */
void sr_event_cb_init(void)
{
	if(_sr_events_inited == 0) {
		memset(&_sr_events_list, 0, sizeof(sr_event_cb_t));
		_sr_events_inited = 1;
	}
}

/**
 *
 */
int sr_event_register_cb(int type, sr_event_cb_f f)
{
	int i;

	sr_event_cb_init();
	switch(type) {
		case SREV_NET_DATA_IN:
			for(i = 0; i < SREV_CB_LIST_SIZE; i++) {
				if(_sr_events_list.net_data_in[i] == 0) {
					_sr_events_list.net_data_in[i] = f;
					break;
				}
			}
			if(i == SREV_CB_LIST_SIZE)
				return -1;
			break;
		case SREV_NET_DATA_OUT:
			for(i = SREV_CB_LIST_SIZE - 1; i >= 0; i--) {
				if(_sr_events_list.net_data_out[i] == 0) {
					_sr_events_list.net_data_out[i] = f;
					break;
				}
			}
			if(i < 0)
				return -1;
			break;
		case SREV_CORE_STATS:
			if(_sr_events_list.core_stats == 0)
				_sr_events_list.core_stats = f;
			else
				return -1;
			break;
		case SREV_CFG_RUN_ACTION:
			if(_sr_events_list.run_action == 0)
				_sr_events_list.run_action = f;
			else
				return -1;
			break;
		case SREV_PKG_UPDATE_STATS:
			if(_sr_events_list.pkg_update_stats == 0)
				_sr_events_list.pkg_update_stats = f;
			else
				return -1;
			break;
		case SREV_NET_DGRAM_IN:
			if(_sr_events_list.net_dgram_in == 0)
				_sr_events_list.net_dgram_in = f;
			else
				return -1;
			break;
		case SREV_TCP_HTTP_100C:
			if(_sr_events_list.tcp_http_100c == 0)
				_sr_events_list.tcp_http_100c = f;
			else
				return -1;
			break;
		case SREV_TCP_MSRP_FRAME:
			if(_sr_events_list.tcp_msrp_frame == 0)
				_sr_events_list.tcp_msrp_frame = f;
			else
				return -1;
			break;
		case SREV_TCP_WS_FRAME_IN:
			if(_sr_events_list.tcp_ws_frame_in == 0)
				_sr_events_list.tcp_ws_frame_in = f;
			else
				return -1;
			break;
		case SREV_TCP_WS_FRAME_OUT:
			if(_sr_events_list.tcp_ws_frame_out == 0)
				_sr_events_list.tcp_ws_frame_out = f;
			else
				return -1;
			break;
		case SREV_STUN_IN:
			if(_sr_events_list.stun_in == 0)
				_sr_events_list.stun_in = f;
			else
				return -1;
			break;
		case SREV_RCV_NOSIP:
			if(_sr_events_list.rcv_nosip == 0)
				_sr_events_list.rcv_nosip = f;
			else
				return -1;
			break;
		case SREV_TCP_CLOSED:
			for(i = 0; i < SREV_CB_LIST_SIZE; i++) {
				if(_sr_events_list.tcp_closed[i] == 0) {
					_sr_events_list.tcp_closed[i] = f;
					break;
				}
			}
			if(i == SREV_CB_LIST_SIZE)
				return -1;
			break;
		case SREV_NET_DATA_RECV:
			if(_sr_events_list.net_data_recv == 0)
				_sr_events_list.net_data_recv = f;
			else
				return -1;
			break;
		case SREV_NET_DATA_SENT:
			if(_sr_events_list.net_data_sent == 0)
				_sr_events_list.net_data_sent = f;
			else
				return -1;
			break;
		case SREV_SIP_REPLY_OUT:
			for(i = 0; i < SREV_CB_LIST_SIZE; i++) {
				if(_sr_events_list.sip_reply_out[i] == 0) {
					_sr_events_list.sip_reply_out[i] = f;
					break;
				}
			}
			if(i == SREV_CB_LIST_SIZE)
				return -1;
			break;
		case SREV_TCP_WS_CLOSE:
			for(i = 0; i < SREV_CB_LIST_SIZE; i++) {
				if(_sr_events_list.tcp_ws_close[i] == 0) {
					_sr_events_list.tcp_ws_close[i] = f;
					break;
				}
			}
			if(i == SREV_CB_LIST_SIZE)
				return -1;
			break;
		default:
			return -1;
	}
	return 0;
}

/**
 *
 */
int sr_event_exec(int type, sr_event_param_t *evp)
{
	int ret;
	int i;
#ifdef EXTRA_DEBUG
	str *p;
#endif /* EXTRA_DEBUG */
	switch(type) {
		case SREV_NET_DATA_IN:
			if(unlikely(_sr_events_list.net_data_in[0] != 0)) {
#ifdef EXTRA_DEBUG
				p = (str *)evp->data;
				LM_DBG("PRE-IN ++++++++++++++++++++++++++++++++\n"
					   "%.*s\n+++++\n",
						p->len, p->s);
#endif /* EXTRA_DEBUG */
				ret = 0;
				for(i = 0;
						i < SREV_CB_LIST_SIZE && _sr_events_list.net_data_in[i];
						i++) {
					ret |= _sr_events_list.net_data_in[i](evp);
				}
#ifdef EXTRA_DEBUG
				LM_DBG("POST-IN ++++++++++++++++++++++++++++++++\n"
					   "%.*s\n+++++\n",
						p->len, p->s);
#endif /* EXTRA_DEBUG */
				return ret;
			} else
				return 1;
			break;
		case SREV_NET_DATA_OUT:
			if(unlikely(_sr_events_list.net_data_out[SREV_CB_LIST_SIZE - 1]
						!= 0)) {
#ifdef EXTRA_DEBUG
				p = (str *)evp->data;
				LM_DBG("PRE-OUT ++++++++++++++++++++\n"
					   "%.*s\n+++++++++++++++++++\n",
						p->len, p->s);
#endif /* EXTRA_DEBUG */
				ret = 0;
				for(i = 0; i < SREV_CB_LIST_SIZE; i++) {
					if(_sr_events_list.net_data_out[i]) {
						ret |= _sr_events_list.net_data_out[i](evp);
					}
				}
#ifdef EXTRA_DEBUG
				LM_DBG("POST-OUT ++++++++++++++++++++\n"
					   "%.*s\n+++++++++++++++++++\n",
						p->len, p->s);
#endif /* EXTRA_DEBUG */
				return ret;
			} else
				return 1;
			break;
		case SREV_CORE_STATS:
			if(unlikely(_sr_events_list.core_stats != 0)) {
				ret = _sr_events_list.core_stats(evp);
				return ret;
			} else
				return 1;
			break;
		case SREV_CFG_RUN_ACTION:
			if(unlikely(_sr_events_list.run_action != 0)) {
				ret = _sr_events_list.run_action(evp);
				return ret;
			} else
				return 1;
		case SREV_PKG_UPDATE_STATS:
			if(unlikely(_sr_events_list.pkg_update_stats != 0)) {
				ret = _sr_events_list.pkg_update_stats(evp);
				return ret;
			} else
				return 1;
		case SREV_NET_DGRAM_IN:
			if(unlikely(_sr_events_list.net_dgram_in != 0)) {
				ret = _sr_events_list.net_dgram_in(evp);
				return ret;
			} else
				return 1;
		case SREV_TCP_HTTP_100C:
			if(unlikely(_sr_events_list.tcp_http_100c != 0)) {
				ret = _sr_events_list.tcp_http_100c(evp);
				return ret;
			} else
				return 1;
		case SREV_TCP_MSRP_FRAME:
			if(unlikely(_sr_events_list.tcp_msrp_frame != 0)) {
				ret = _sr_events_list.tcp_msrp_frame(evp);
				return ret;
			} else
				return 1;
		case SREV_TCP_WS_FRAME_IN:
			if(unlikely(_sr_events_list.tcp_ws_frame_in != 0)) {
				ret = _sr_events_list.tcp_ws_frame_in(evp);
				return ret;
			} else
				return 1;
		case SREV_TCP_WS_FRAME_OUT:
			if(unlikely(_sr_events_list.tcp_ws_frame_out != 0)) {
				ret = _sr_events_list.tcp_ws_frame_out(evp);
				return ret;
			} else
				return 1;
		case SREV_STUN_IN:
			if(unlikely(_sr_events_list.stun_in != 0)) {
				ret = _sr_events_list.stun_in(evp);
				return ret;
			} else
				return 1;
		case SREV_RCV_NOSIP:
			if(unlikely(_sr_events_list.rcv_nosip != 0)) {
				ret = _sr_events_list.rcv_nosip(evp);
				return ret;
			} else
				return 1;
		case SREV_TCP_CLOSED:
			if(unlikely(_sr_events_list.tcp_closed[0] != 0)) {
				ret = 0;
				for(i = 0;
						i < SREV_CB_LIST_SIZE && _sr_events_list.tcp_closed[i];
						i++) {
					ret |= _sr_events_list.tcp_closed[i](evp);
				}
				return ret;
			} else
				return 1;
		case SREV_NET_DATA_RECV:
			if(unlikely(_sr_events_list.net_data_recv != 0)) {
				ret = _sr_events_list.net_data_recv(evp);
				return ret;
			} else
				return 1;
		case SREV_NET_DATA_SENT:
			if(unlikely(_sr_events_list.net_data_sent != 0)) {
				ret = _sr_events_list.net_data_sent(evp);
				return ret;
			} else
				return 1;
		case SREV_SIP_REPLY_OUT:
			if(unlikely(_sr_events_list.sip_reply_out[0] != 0)) {
				ret = 0;
				for(i = 0; i < SREV_CB_LIST_SIZE
						   && _sr_events_list.sip_reply_out[i];
						i++) {
					ret |= _sr_events_list.sip_reply_out[i](evp);
				}
				return ret;
			} else
				return 1;
		case SREV_TCP_WS_CLOSE:
			if(unlikely(_sr_events_list.tcp_ws_close[0] != 0)) {
				ret = 0;
				for(i = 0; i < SREV_CB_LIST_SIZE
						   && _sr_events_list.tcp_ws_close[i];
						i++) {
					ret = _sr_events_list.tcp_ws_close[i](evp);
				}
				return ret;
			} else
				return 1;
		default:
			return -1;
	}
}

/**
 *
 */
int sr_event_enabled(int type)
{
	switch(type) {
		case SREV_NET_DATA_IN:
			return (_sr_events_list.net_data_in[0] != 0) ? 1 : 0;
		case SREV_NET_DATA_OUT:
			return (_sr_events_list.net_data_out[SREV_CB_LIST_SIZE - 1] != 0)
						   ? 1
						   : 0;
		case SREV_CORE_STATS:
			return (_sr_events_list.core_stats != 0) ? 1 : 0;
		case SREV_CFG_RUN_ACTION:
			return (_sr_events_list.run_action != 0) ? 1 : 0;
		case SREV_PKG_UPDATE_STATS:
			return (_sr_events_list.pkg_update_stats != 0) ? 1 : 0;
		case SREV_NET_DGRAM_IN:
			return (_sr_events_list.net_dgram_in != 0) ? 1 : 0;
		case SREV_TCP_HTTP_100C:
			return (_sr_events_list.tcp_http_100c != 0) ? 1 : 0;
		case SREV_TCP_MSRP_FRAME:
			return (_sr_events_list.tcp_msrp_frame != 0) ? 1 : 0;
		case SREV_TCP_WS_FRAME_IN:
			return (_sr_events_list.tcp_ws_frame_in != 0) ? 1 : 0;
		case SREV_TCP_WS_FRAME_OUT:
			return (_sr_events_list.tcp_ws_frame_out != 0) ? 1 : 0;
		case SREV_STUN_IN:
			return (_sr_events_list.stun_in != 0) ? 1 : 0;
		case SREV_RCV_NOSIP:
			return (_sr_events_list.rcv_nosip != 0) ? 1 : 0;
		case SREV_TCP_CLOSED:
			return (_sr_events_list.tcp_closed[0] != 0) ? 1 : 0;
		case SREV_NET_DATA_RECV:
			return (_sr_events_list.net_data_recv != 0) ? 1 : 0;
		case SREV_NET_DATA_SENT:
			return (_sr_events_list.net_data_sent != 0) ? 1 : 0;
		case SREV_SIP_REPLY_OUT:
			return (_sr_events_list.sip_reply_out[0] != 0) ? 1 : 0;
		case SREV_TCP_WS_CLOSE:
			return (_sr_events_list.tcp_ws_close[0] != 0) ? 1 : 0;
	}
	return 0;
}


/**
 *
 */
static sr_corecb_t _ksr_corecb = {0};

/**
 *
 */
sr_corecb_t *sr_corecb_get(void)
{
	return &_ksr_corecb;
}
